home *** CD-ROM | disk | FTP | other *** search
/ Let's Discover Louisiana / Let's Discover Louisiana.iso / pc / FILES / FUND.dxr / 00102_checkForIntersect-loopNum.ls < prev    next >
Encoding:
Text File  |  2002-12-03  |  1.1 KB  |  46 lines
  1. global rightChoice, loopNum, soundNum, charName
  2.  
  3. on exitFrame me
  4.   if sprite rightChoice intersects sprite(1) then
  5.     sound(3).stop()
  6.     sound(2).volume = 100
  7.     sound(5).volume = 100
  8.     go(marker(1))
  9.   end if
  10.   if (loopNum mod 50) = 0 then
  11.     case charName of
  12.       "Comet":
  13.         case soundNum of
  14.           "1":
  15.             sound(3).queue(member("C-CatchIt"))
  16.           "2":
  17.             sound(3).queue(member("C-WatchOut"))
  18.           "3":
  19.             sound(3).queue(member("C-ThereItIs"))
  20.           "4":
  21.             sound(3).queue(member("C-ThereItGoes"))
  22.         end case
  23.       "Star":
  24.         case soundNum of
  25.           "1":
  26.             sound(3).queue(member("S-CatchIt"))
  27.           "2":
  28.             sound(3).queue(member("S-WatchIt"))
  29.           "3":
  30.             sound(3).queue(member("S-ThereItIs"))
  31.           "4":
  32.             sound(3).queue(member("S-ThereItGoes"))
  33.         end case
  34.     end case
  35.     if soundNum < 4 then
  36.       soundNum = soundNum + 1
  37.     else
  38.       soundNum = 1
  39.     end if
  40.     loopNum = loopNum + 1
  41.     go(the frame + 1)
  42.   end if
  43.   loopNum = loopNum + 1
  44.   go(the frame)
  45. end
  46.